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Enclosed in this month's "Transactor" is a copy of 
Jim Butterfield 1 s memory map. Generally its a listing of what 
is contained in PET memory and where. Although other maps have 
been published in previous bulletins, I found Jim's to be the 
most comprehensive thus far. It lists nearly all of the sub- 
routines that PET has in ROM and also the areas of RAM that 
PET uses as registers and buffers. For those who haven't used 
a memory map it's as easy as using a city road map. We'll 
explore this simplicity with a few examples but first a brief 
explanation of PET memory and the memory map. 

ADDRESSING 

Every memory location in your PET contains one byte of 
information. In order for PET to get at these bytes it must 
have a means of accessing them. Therefore each and every 
memory location has its own individual address; all 65536 of 
them. The microprocessor places these addresses on the address 
buss which immediately enables one. memory location to the data 
buss. Bearing that in mind, one of two operations can happen 
now. PET can either place a byte into that location (i.e. POKE) 
or "look" at what's already there (i.e. PEEK). When performing 
the first operation the microprocessor places a byte on the data 
buss and transfers it along the buss and into the enabled 
memory location. 

In the second operation, the information or byte in the 
enabled location is transferred onto the data buss and along 
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the data buss back to the microprocessor. This location is not 
"emptied" but rather only a duplicate or copy of the information 
is transferred. Once either of these operations is complete 
the microprocessor then places a new address on the address buss 
and another location is enabled. This process repeats thousands 
of times every second, however these operations aren't possible 
on all memory locations, but I'll explain this later. 

The microprocessor has control of 99-9% of the addresses 
being placed on the address buss. That extra 0.1% control was 
left for the user and can be obtained through use of the PEEK, 
POKE and SYS commands. When executing these commands the user 
must choose an address. This address will be one of the 65,536 
memory locations (i.e. to 65535)* This is where the memory 
map enters the picture. The memory map may well be your most 
powerful tool for choosing addresses. If you look at the map 
you'll see that all of the addresses are listed in ascending 
order down the left hand side; first in hexadecimal and then in 
decimal. (See section on hexadecimal and binary for explanation 
of this conversion) the decimal address is the one you use when 
executing the above 3 BASIC commands. To the right are the 
descriptions of what you can expect to find at the corresponding 
addresses. If we then PEEK these addresses we are returned 
the actual bytes that are in those particular memory locations. 
For example, let's say during a program we hit the STOP key and 
got: 

BREAK IN 600 

READY. 



PET gets '600' from a storage register at addresses 138 and 139 • 
We could also PEEK these locations and find that 600 is indeed 
stored in 138, 139- However it is not stored as a six, a zero 
and a zero. Instead it is stored as the decimal conversion of 
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tlie line numbers representation in hexadecimal. All information 
of this type is returned in this manner. Now that we know what 
the memory map will help us do let's cover some of the rules. 

RAM and ROM 

We all go through life with basically 3 types of memory: 

1. MEMORY PRESENT: This memory we use to remember things like 
what street we're driving on or our present location. 

2. MEMORY PERMANENT: Things like our names and fire is hot we 
never forget. 

3. MEMORY PAST: Recent occurrences and not so recent such as 
things we did 10 or 12 years ago. 

In the PET there are only two: 

1. RA.M Random Access Memory: This type of storage is used for 
our programs and things that change such as the clock and 
previous line number. 

2. ROM Read Only Memory: This is PET's permanent memory. In 
ROM are the addition routines, clock updating routines and 
loading routines to name a few. These functions would have 
to programmed Into PET on each power up if they weren't 
permanently 'burnt in 1 . 

The third type, memory past, is instantly 'forgotten' on 
power down. The only way to recall it is to first save it on 
tape, disc, etc. 

Recall earlier I mentioned that POKE and PEEK aren't 
possible on all memory locations for several reasons: 

A. Not all PET memory locations actually exist. On the memory 
map, locations 1024 to 32767 is the 'available RAM including 
expansion' . If you have a PET with 8K, simple arithmetic 
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shows that 3/4 of the available BAM space is non-existent. 
If you decide to expand your system, PET will 'fit' the 
added BAM into this area. However POKing or PEEKing this 
space (i.e. 8192 to 32767) will return invalid results on 
8K PETs. 

B. The same concept applies to locations 36864 to 49151 • This 
is the available BOM expansion area. 

C. Next on the memory map is the Microsoft BASIC area; loca- 
tions 49152 to 57463. This is the memory that recognizes 
and performs your commands. Changing the contents of these 
locations is impossible because it is Bead Only Memory and 
is actually 'burnt in' at the factory. Therefore, POKing 
these locations will simply do nothing. Also, Microsoft 
requested that these locations return zeros if PEEEed (for 
copyright reasons). 

With these 3 rules and your memory map you are now equipped 
to explore capabilities of your PET that you probably never 
thought possible. Before we try some examples let's go into one 
more important occurrence that may have had you scratching your 
head ever since that first power up. 

MISSING MEMOBY ? 

When you turn on your 8K (where X = 1024) PET, the first 
thing it tells you is 7167 BYTES PBEE; a reduction of almost 12%. 

Q. Where did the missing 1024 bytes go? 

A. It's still there. . .right below the available BAM space 

(notice it starts at location 1024) . PET uses this memory 
to do some very useful operations for you which you can 
find and access by looking them up on the memory map. 

Q. But why not do this in BOM space? 

A. PET needs BAM type memory to store this data because it is 

always changing. The information in this "low" end of memory 
is actually produced by routines found in BOM. 

5.-./ 



- 5 - 

Take for example the built-in clock. The clock or time 
is stored in locations 512, 513 and 51^ of RAM. However the 
data comes from a routine found in ROM at location F736 he>c • 
The time is of course always changing, therefore it must be 
stored in RAM. But because it is in RAM, you may also change 
it; either by setting TI or TI$ or you can POKE the above 3 
locations. Try it. 

Now let's try some examples. 

1. Location 226 (00E2 in HEX) holds the position 
of the cursor on the line. Try these: 

POKE 226,20:? "PRINTS AT NEXT SPACE 
?" 12 3456789" ; : ?PEEK(226) 

2. Location 245 (00E5 in HEX) stores the line 
the cursor is presently on (0 to 24). POKing 
this location will move the cursor to the 
specified line after a display execution. 
Por example try: 

?"A": POKE 245,10: ? ,, B ,, :? ,, C n 

POKE 245,21-1: ?"cu": POKE 226,20: ?"PRINTS HERE" 

The above will move the cursor to line 20 (21-1), 
print a 'cursor up' on line 21 and display your 
message starting at column 21, line 20. 

. While experimenting with out-of-range values 
I obtained some rather interesting results. Try 
POKing location 245 with a number greater than 24, 
say 40 or 60, and hit the cursor up/down key a 
number of times. Also, experiment with unusual 
numbers in location 226 such as: 

POKE 226,100: ?"123456789" 

6. . ./ 
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3. Location 526 is the reverse field flag. POKing 
this address with a non-zero value will execute 
the following same line print statements in RVS 
field. Once finished, PET resets 526 to zero. 
Try this: 

POKE 526, 1:?"123" :?"456" 

now INST a semi-colon between 3" and the colon 
(i.e. . . .23" ; : ?"4-.'. . ) and re-execute. 

4. Notice below the RVS field flag is location 525; 
the number of characters in the keyboard buffer. 
Above the RVS flag is the buffer itself at 
locations 527 through 536. Although this 
designates 10 buffer locations, there are actually 
only 9. The tenth (536) is for some reason a 
"dead" location. During program execution, 

the operating system scans the keyboard every 60th 
of a second. If keys are typed say during a 
'POR-NEXT' loop, they are stored in the keyboard 
buffer until the program encounters a GET or an 
INPUT.* PET then 'draws out' the contents of 
the buffer and implements them according to the 
command Involved (GET or INPUT). However, if 
more than 9 keys are typed during the loop, 
PET erases the entire contents of the buffer and 
continues to fill the buffer with the 10th 
character as if it were the first, and so on 
("modulo 10"). 

*or after a BREAK, READY. 
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In the command mode (i.e. when you're operating PET 
directly all typed keys go first into the keyboard buffer 
and then into screen memory or VIDEO RAM. However you may 
also load the buffer under program control by POKing the 
ASCII representations of the characters into sequential loca- 
tions of the buffer. You must also increment by 1 the contents 
of 525 each time another character is POKed in, but remember — 
not past 9- Page 6 of "Transactor" #2 contains a table of all 
the values for characters and commands. "Transactor" #1, 
page 12 lists some extras such as cursor controls and the 
RETURN key (13) • Iry the following endless loop. 145 is a 
cursor up 

POKE 525,4:POKE527,l z t-5:POKE528,145:POKE529,145:POKE530,13 
Some other interesting items are: 



P0KE59409 
P0KE59409 
P0KE59411 
POKE 59411 
P0KE59468 
POKE59468 



52 - Blanks screen 
61 - Screen back on 

53 - Turns cassette motor on 
61 - Turns motor off 

14 - Lower case mode 
12 - Graphics mode 



POKE537,136 - Disables STOP key and clock 

If anyone knows of or discovers any peculiarities by 
"POKing" around, please send them in. When I receive enough of 
them a handy dandy 'PETRIX' card will be included in a future 
"Transactor" bulletin. 

THE SYStem COMMAND 

On the last three pages of the memory map are listings 
of the subroutines stored in PET ROM that perform your commands 
and programs. These subroutines are stored as machine language, 
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When a SYS command is executed PET jumps to the specified 
decimal address and continues from there in machine language. 
Take for example the Machine Language Monitor program. This 
is a machine language program and is initialized by a SYS 
command stored as a BASIC program line. LOAD and RUN your 
M.L.M. then type 'X 1 and hit 'RETURN' to exit to BASIC. Now 
list. What you'll see is: 

10 SYS (1039) 

Location 1039 is the address to which PET will jump and 
also the address at which the first maching language instruction 
is stored. (A listing of all of the M.L.M. instructions is in 
"Transactor" #5, pages *?A and 5B) . When this BASIC line is 
executed PET operates in machine code beginning with address 1039* 

The SYS command does not require brackets around the 
specified address. 

Since PET has its subroutines stored in machine language 
you can use the SYS command to access and execute them. However 
you may come up with some rather peculiar if not disastrous 
results. When jumping into ROM you may find yourself in the 
middle of a subroutine or at the beginning of a subroutine belonging 
to a major function routine. Often PET will * hang-up' or crash 
and you will be forced to power down to resume normal operation. 
To demonstrate jumping into the middle of a routine, try the 
following examples: 

1. SYS 52764 (CE1C) 

2. SYS62498 (F422) 

3. P0KE523,1:SYS62498 (P422) 

4. SYS62463 (P3PP) 

5. SYS64824 (PD48) 
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The numbers on the right are the addresses df the above sub- 
routines in hexadecimal. Compare them to the memory map, 
especially for e.g. #1. Also take a look at 523. 

The following are examples of valid locations which you 
can use with the SYS command to access useful routines, however 
these routines are already accessible through BASIC. 

1. SYS62651 (F346) 

2. SYS62278 (F4BB) 

3. SYS63134 (F69E) 

Example #3 will perform a 'SAVE 1 but will not produce a 
tape header. 

Experiment with your memory map. Hex to decimal . 
conversions can be obtained using the, method following this 
article. 

SUMMARY 

This has been merely 'a scratch on the surface' of the 
extremely complex inner workings of PET. Do not be afraid to 
experiment with the POKE and SYS commands. There is absolutely 
nothing you can do to harm PET from the keyboard that turning 
power off and on won't fix. Also do some PEEKing around 
especially in low end memory. One good way is to write a small 
monitor program: 

10? ,l c"PEEK( 516): GOTO 10 

The above will monitor the 'SHIFT' key. Try running it 
and depress 'SHIFT 1 . Compare the map. 
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When POKing or SYSing to random addresses, remember the 
address you choose. Often PET will do something which may erase 
the address from the screen (e.g. SYS64840) . 

The addresses that have been listed here are only a few of 
many that are already known and only a minute percentage of the 
ones not known. Probe around and send in any discoveries, useful, 
peculiar or otherwise. They will be collected together and 
published in a future "Transactor" bulletin. 



Karl J. 
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BINARY to HEXADECIMAL to DECIMAL 

We all know how to count in base 10 or decimal. We start 
at zero and count one. . .two. . .three and so on to nine. Once nine 
is reached we've run out of numbers, that is single digit numbers. 
So in order to continue we must now make use of two digits; we 
place a "1" in the 10' s column and reset the l's column back to 
zero. Continuing from here, sooner or later we would reach 99. 
Adding "1" would generate a carry into the 10' s column and this 
in turn will generate a carry into the 100' s columns to zeros. 

This explanation of base 10 was given simply to demonstrate 
how we actually do our counting that we just do naturally. 
Binary is much simpler than decimal because there are only two 
numbers to worry about; zero (0) and one (l). 

Base 2 number set Base 10 number set 

0, 1 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 

With a little practise you'll see that counting in Binary 
is just as easy as counting in decimal. 

Binary is base 2 ('Bi') just as decimal is base 10 ('Deci') 
just as hexadecimal is base 16 ('Hexadeci') but I'll talk about 
the "HEX" numbering system later. 

In base 10 we are 'allowed' to count up to 9 before carrying 
the "1" into the next column. Generally in any base we count 
to one less than the base # and generate a carry into the next 
column. In base 2 we count up to "1" and do our carry. Just 
as we cannot fit a "10" base ten into one column we cannot fit 
a "2" base two into one column. The base # is most important. 
Let's illustrate by comparison. 
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NUMBER 


NUMBER REPRESENTATION IN: 


BASE 2 BASE 10 





0000 0000 


1 


0001 0001 


2 


0010 0002 


3 


0011 0003 


4 


0100 0004 


5 


0101 0005 


6 


0110 0006 


7 


oin 0007 


8 


1000 0008 


9 


iooi 0009 


10 


1010 0010 


11 


1011 0011 



Notice how in binary, on every multiple of 2 a carry is 
generated whereas in decimal the carry is generated upon 
multiples of 10. 

Let's now define the columns of the two number bases. In 
base 10 we have the l's column, 10' s column, 100' s column and 
so on. Each column is the previous column times ten ; 1 = 0.1 x 
10, 10 = 1 x 10, 100 = 10 x 10 and so on. We can also represent 
these using exponents; 1 = 10, 10 = 10, 100 = 10 (10 'squared 1 ), 
1000 = 10 3 (10 'cubed'), and so on. In base two each column is 
the previous column times two ; we have the l's column, 2's 
column, 4's column, 8's, 16' s, 32 's and on. Using exponent 
representation, 1=2°, 2=2 ,4=2 ,8=2 ,16 =2 , 
32 = 2 , and so on. Now let's represent some numbers of the 
two bases using their column breakdown; 
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2 b**IO- 0002 - 0*1000 + 0*100 + 0«10 + 2*1 

2fc»*2- 0010 - 0*8 + 0*4 + 1*2 + 0»1 

7 W - 0007 - 0*1000 + 0*100 + 0-10 + 7*1 

7 Z - 0111 - 0*8 + 1*4 + 1»2 + 1*1 

12,o = 0012 - 0*1000 + 0*100 + 1*10 + 2*1 

12 t - 1100 - 1*8 + 1*4 + 0*2 + 0*1 

The same three examples using exponent representation will be: 



2 ■ 0002 - 0*10 3 + 0*10 + 0*10 + 2*10 

2 - 0010 - 0*2 3 + 0*2* + 1*2 1 + 0*2° 

7 - 0007 « 0*10 3 + 0*10* + 0*10'+ 7*10° 

7 - 0111 - 0*2* + 1*2* + 1*2 1 + 1*2° 

12 - 0012 - 0*10 3 + 0*10 2 + 1*10*+ 2*10° 

12 - 1100 - 1*2 3 + 1*2* + 0*2 4 + 0*2* 



2° - 1 2* = 16 

2' - 2 2 s - 32 

2* - 4 2* - 64 

2 3 - 8 2 7 - 128 

Use this table as a reference for the following exercises. 
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Try the following example on representing decimal numbers in binary by placing 

a 1 or a in the correct column position. 

NUMBER 2 2 Z 2 2 

4 « 



12 

13 
14 
15 



What must be done to represent the number 16 in binary. If you said " A 
fifth digit must be used at the leftmost position ", then you're absolutely 
right. Except for one thing: digit is a word we use in decimal. In binary 
we use the word BIT derived from Binary diglT. By implementing a fifth bit 
it is now possible to represent numbers greater than 16 but only up to 31. Once 
past 31, a sixth bit position must be used. Continue with the exercise. Notice 
the leftmost column values have changed. 

S *t 3 2 10 

NUMBER 2* 2 2 2 2 2 

16 » 



21 



28 



32 



51 



62 



63 



...15/ 



-15- 



What would be the highest posible number you could represent using only 
6 bits? 

T 6 S 4 3 t I O 

2 2 2 2 2 2 2 2 



? = 
7 bits? 

? = 
8bits? 

? = 1 



If your answers were 63, 127 and 255, you're correct. Notice how these 
values are 1 less than the value of the next bit position to the left. ( 2 8 =256) 

The BITE 



Every memory location in PET, is actually one byte. A byte 
consists of 8 bits. In computer electronics the binary number 
system is used. This way we can use a high voltage to represent 
a "1" and a low voltage to represent a "0". Can you imagine the 
circuitry that would be required to operate a computer in decimal 
or base 10? Ten unique voltages would have to be used to 
represent each of the ten digits. Then a separate computer would 
probably be required to distingusih between them all. By using 
binary PET must only distinguish between two voltages. Since a 
5 volt supply is used for the logic circuitry, anything over 2.4 
volts is considered high or a "1" and anything under is considered 
low or a "0". These voltages are typically 4.8 volts and 0.2 volts, 
respectively. Each bit of every byte in memory holds one of these 
voltages. With 8 bits in each byte, 256 combinations can be 
obtained (0-255) as you can see from the above exercise. If you 
look at the table on page 6, "Transactor #2, you'll see that all 
the keys can be encoded into one of these combinations. PET 
uses some combinations to represent the commands so that they 
only take up one byte in memory. PET also uses some of these 
combinations twice to represent graphics as you'll see by comparing 

the table to page 12 of "Transactor" #1. PET ROM routines 

distinguish between commands and graphics. 
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Try POKing a RAM location, say 6000, with a number greater 
than 255, say 256. A 7ILLEGAL QUANTITY ERROR will be returned 
because more than 8 bits are required to represent 256 in binary. 

222222222 
256 = 100000000 

Essentially, 256 won't 'fit' into a single byte. 

Try PEEKing a non-existent memory location, say 10,000: 

?PEEK( 10000) 

A 255 will be returned. A unconnected or open line is considered 
high by PET. Since the byte is not really there, the data buss 
lines will be open and read as high or all l's by the micro- 
processor. 



Hexadecimal or 'HEX" 

Hexadecimal means base 16. This means we can count up to 
15 before generating a carry. However we can't use the numbers 
10, 11, 12, 13, 14 and 15; these take up two columns. We need 
to represent these numbers using a single character. Therefore 
we use the first 6 letters of the alphabet. 

Hexadecimal number set 

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F 



A |6 — 10,o 


D,« 


= 13 w 


B \c = 11 <0 


E i fe 


= 14 ,. 


C l(i = 12, 


F it 


= 15* 
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When counting in HEX we generate our carry upon 16: 

4 t 

l5,o = ^ •& 
16 „ = 10 „ 

Recall in binary, 4- bits will yield a maximum of 15 

15 l0 = 1111 1 = F,. 

Now since a byte has 8 bits, we can split it up into two fields 
of our and then represent it as two hexadecimal characters. 

4 l(1 = 0000 0100 z = 04 16 

12 „ = 0000 1100 z = OC (fc 

255 ,o = 1111 1111 z = K? u, 



HEX Addresses 

We won't discuss how a byte recognizes its own address; this 
is buried deep inside the integrated electronics of the IC chips. 
The address buss consists of 16 lines, through 15- PET needs 
this many lines to address all 65,536 bytes. Because location 
(zero) is included, the maximum address obtainable is 65? 535 in 
decimal. When this location is addressed, all 16 lines of the 
address buss will have ahigh voltage. In other words logic 1. 

2 * 2 * 2 » 2 .z 2 „ 2 » 2 « 2 * 2 7 2 , ^ 2 a 2 , 2 * 2 , 2 o 
65,535 =1111111111111111 

(ff *<* ti 17 II 10 « « -7 & 5" „<* „S „2 I ^O 

= 2 + 2 + 2 + 2 + 2 + 2 + 2 + 2 + 2 + 2 + 2 + 2 + 2 + 2 + 2 + 2 
On PET = 2 t 15 + 2 t 14+. . . 2 t Try it. 
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If we now split the 16 columns into four fields of four we can 
also represent each field using a hexadecimal character thus 
converting decimal to hexadecimal as Jim has on the left of the 
memory map. 



= ffff i4j 

Eecall e.g. #1 of the SXS command (pg.8) 

52764 w = 1100 1110 0001 1100 tl , 
= CE1G tft 

When operating PET, the decimal addresses are used for PEEK, 
POKE and SYS. Therefore you probably won't find yourself 
converting from decimal to HEX when using BASIC. However you 
will need to convert from HEX to decimal when you want to SXS 
to those ROM subroutines. 

CElC lft = 1100 1110 0001 1100 

= 2 ' 5 + 2* + 2 U + 2'° +2" +2* + ? + 2 Z 
ON PET = 2fl5 + 2tl4 + 2tll + 2tl0 + 2t9 + 2t4+2?3 + 212 

= 52764 ,„ 

F422 |to = 1111 0100 0010 0010 

= 2 ,f + 2' 4 + 2" + 2 l " + 2 10 + 2 s + 2' 
On PET = 2 t 15 + 2 ! 14 + 2 t 13 + 2 f 12 + 2 t 10 + 2 t 5 + 2 f 1 

= 62498 (0 

Try verifying some of the other examples using the same 
conversion method. With a little practice HEX conversions will be 
as easy as counting to 'F' . 
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CAMERA FAIR: 



The T. Eaton Company of Canada is holding their 2nd Annual 
Camera Fair; a camera clinic for photography enthusiasts. 
Representatives of 10 camera manufacturers will be there to 
answer questions and Eaton's has invited Commodore to participate 
with a PET program clinic. Karl Hildon will be there to demons- 
trate the new big keyboard PET, answer programming questions 
and give print-outs of your personal computerized biorhythm. 
Some club programs will be available for copying (limit 1 per 
customer) . 

PLACE: EATON CENTRE, Downtown Toronto (Dundas & Yonge) 



Show dates are: April 5th - 11:00 a.m. - 3 

April 6th - 5:00 p.m. - 8 
April 7th - 10:00 a.m. - 5 

Hope to see you there 1 



00 p.m. 
00 p.m. 
00 p.m. 



FOR YOUR INFORMATION : 

The subscription form for the 1979 "TRANSACTOR" bulletin 
will be in next month's issue. .. .Don 1 t miss it I 



Karl J . 



COMME.-iCTAL CONTUSION, Jim Butterfield 

or i Toronto 

"Where'd the penny go?" 

JrFi? is certainly the greatest business tool since 

electric pe-cil sharper ers, ar.d printers and f loppy 

d'sks will herald ar, explosio of commercial apprll cations. 

Basic seems l^ke the ideal language for a small 
business system - but it has a hidden "gotcha" that 
w*ll give you problems if you don't know how to hardle 

it. X call U, "the missing pennies problem", and ? t's 
common to almost all Basic implementations. 

Cra^k up your VEV and try thisi PRINT 2,23 - 2.18 — it's 
a simple busi ess calculatio- and the answer has gotta be 
a r-ckel, r ! ght So how come PF n says .0^99999993? 

?h'nk o" the mess this could cause 'i you're prating 
out eat columns of dollar-and-cent results :hink o 
the problems if you arrange to print the first two places 
behind the decimal pointi you'll pr : nt .0**- " nstaad of .051 
."hi k o ' what the auditor w*ll say when he fonds that the 
totals do-'t add up correctly! 

Ir a moment we'll d'scuss how to get r"d of this problem. 
F'.rsti though, let's see how it happens- 

IF.? holds numbers In floating binary. Jhat means certain 
. fract"o-s don't work out evely. Just as. in decimal, 
o~e th-rd works out to -333333 . , an e dless rumber, 
IEI sees L"ract'0''S like .10 or .6c, as endless repeat^ g 
' ;> ractiors - in binary. "o C-t-the fraction ir.- memory, 
*t must trim it ±hus» many ract'ons such as ,37 are 
adjusted slightly before storage. 

ry this programt it w'll tell you how ^umtiers are stored 

; nside I'?., 1 * 

100 T TU""Af40U?:"fA8B»T !:(A):G=A-B:?Aj"= m |Bj m "1 

110 'O.J=1T010«OC*10jI>I ^MC)iC=C-Di?DtiT-O0:iffiI "EX^J 

120 ?« GO ^0100 

If you try entering numbers in our above example, 2.23 ar.d 
2.1C, you'll see how JrF.r stores them - and why the problems 

happen . 

How to fix the problem Easy. Charge all umbers to 

pen ies - which eliminates fractions - and your troubles 

disappear, For example « 

3*K) II-TUi? "AMOUNT"! A * A=I :(A*100+.5) converts A to pemiesi 
760 Ivcne A/iOO outputs pennies i ■ dollars-and-cents 



100 DIMC<5>, D<13> 

lie print"qnta i r,iQ ENcqns TftX 19?3 TAXATION YEAR" : print- j butterfield - 

111 I NPUT " I NSTRUCT I ONS " ; Z* : I FfiSC < 2* > =78GOTO120 

112 PR I NT "ONTARIO INCOME TAX FOR 1978" 

113 PRINT "FOLLOW YOUR FORM: THIS PROGRAM WILL" 

114 PR INT "HELP WITH THE ARITHMETIC. " 

115 PRINT'TOR -NIL ITEMS, JUST PRESS -RETURN-". " 

116 PR I NT "FOR -MULTIPLE- ENTRIES, ENTER AMOUNT" 
11? PR I NT "AND PRESS -+• INSTEAD OF -RETURN-' TO" 
llo PR I NT "SIGNAL MORE ITEMS TO COME. " 

120 DEFFNS < M > « < M+S-ABS < M-S > > X2 

j 20 DEFFNB<M>=<M+B+ABS<M-B>>/2 

140 DEFFNPCM> = INT<:M*P/100+. 49 > 

150 DEFFNKM> = INT<M*106+. 5> 

20W Pl=l ; C=l : F=l : GOSUB200O 

210 I *=" INCOME FROM EMPLOYMENT" : GOSUB210O 

220 P=3:S=25E3:I«FNS<FNP<I>>:F»-1:I*="LESS EMPLOVMT EXPENS" GOSUB2150 

230 F=@: I =C <C>: I $="*NET EMPL. EARNINGS" : GOSUB22O0 

240 F=l: I*="DIVD FROM CDN CORP" : GOSUB210G 

250 D<S>=I : I *=" INTEREST & INV INCM" : GOSUB2100 

255 D >:. 1 > = I : I *= " CflNAD I RN CAP I TAL G A I NS " : GOSUB2100 

260 l.K4>*I : I*=="ALL OTHER INCOME" : GOSUB210O 

27W I =C < 1 > : I *= " **TOTAL I NCOME** " : GOSUB220O 

280 D <. 2 > = I : Pl=2 : GOSUB2000 : GOSUB2200 

2*2 PR I N T " LESS : " : C=2 : C < C > =Q : I *= " CPP CONTR I BUT I ONS " : GOSUB210O 

284 I*="UIC PREMIUMS" :GOSUB2100 

286 i $- " ! HER DEDUCT I ONS " : GOSUB2100 

290 I =C •• > : C < C > =0 : C=l : F=~-l : I *= " *TOT DEDUCT I ONS : " : G0SUB2150 

300 I=C-:.C> : I$=" *NET INCOME*" : DCS > = I : GOSUB22O0 

310 PRINT "EXEMPTIONS : " : C=2 : I$="BASIC EXEMPTION" ; F=l • I-243E3 : GOSUB21S0 

320 I*-"HGE EXEMPT" : GOSUB210O : I *= "MARRIED EXEMPT" : GOSUB21O0 

330 I*="DEPNDT CHILD EXMPT" : GOSUB210O : I*= H OTHER EXMPT" : GOSUB210O 

340 I=C<C> : D<12>=I : C=l : F=-~l : I*=" *TOTAL EXEMPT*" : G0SUB2150 

350 GOSUB230O: If=" **LINE 46+*" : GOSUB22O0 

360 C»2: I*- "MEDICAL EXPENSES" : GOSUB21O0 

770 C<C'' = I : IFI=0GOTO400 

380 F=-1:P=3: I =FNP <: D 63 > > : T*="*LESS 3X N. I. " : G0SUB2150 

390 GOSUB23O0: I *= "ALLOWABLE MED EXP" : G0SUB2200 

40W F=l : I *=" CHAR I TABLE DONATNS" : GOSUB21O0 : I=C<X> :C<C>=Q 

410 B=1L4 : I=FMB( I > : I*=="**STflNDflRD DEDCTN**" : GOSUB2150 

420 S--1E5 : I=4 :; TJS ■:: D •:: O > HX 1 ::h- D ■:: 4 > .:• : D'710>==I 

430 IFI>0THENI*="*I, D & CG DEDUCTION" : G0SUB2150 

440 I*="HLL OTHER DEDUCTIONS" : GOSUB21O0 

450 I =C «:: C > : C < C > =© : C=l : F=-l : I *= " *+TOTAL DEDUCT I ONS " GOSUB21.50 

460 GOSUB230O • I *= " **TAXABLE I NCOME**" : GOSUB2200 : D >: 5 ■' = I PR INT 

470 IFK231E3THENPRINT" NO TAX PflVflBLE" : D<'5>=0 : GOTO1O00 

480 IFK>24E5ANDD<:0::'=0THENPRINT"VOU MAV USE TAX TABLE . . OR. . " 

490 DATA36504, 9521, 36 

500 Pl=l : GOSUB2010 

510 DA TA91260, 30192, 43 

520 DATA59319, 17735, 39 

530 DA TA36504, 9521, 36 

540 DATA21294, 4654, 32 

550 DATA16731, 3377, 28 

560 DATA13689, 2616, 25 

570 DATA10647, 1916, 23 

580 DATA7605, 1278, 21 

590 DATA4563, 700, 19 



688 DATA3842.. 426.. 18 

618 DATFU521, 167, 17 

620 DAT A, '61, 46, 16 

620 DATA--1E18.. 8.. 6 

648 DATA-1 

650 READ/.- V, P : IFI<X*±82GO'TO650 

668 T=Y*108:PRINT"ON FIRST $".; X.= "TAX IS ".; V 

678 J=I-X*188: I^FNPCJ::' :PRINT"0N RMG *•".; ,T/188.; "TAX FIT".; P.; "K IS *"; 1/108 

688 I = 14 |' : C=3 : F =1 : I *= " TOTAL. FED I NCM TAX " : G0SUB2158 

698 S= I : P-25 : I =FNS < FNP •:. D ■:. 8 > > > : D < 11 > == I 

695 1 F I >8 T HENF~= -1 . .[ *-•- " D I V TAX CRED IT": G0SUB2158 

788 I=CCC):I$=" +BASIC FEDERAL TAX*" : G0SUB2288 : PRINT : D<C6> = I 

718 I F I OE4G0T0748 

728 1 F I -:>3:03E2 THENI=3E4 : G0TG748 

, :: '38 P=9 : I=FHP«:: I> 

740 c~4 : C<X>=6 : F=l : I*^"GENERAL TAX REDUCTION" : G0SUB2158 

758 I *=" REDUCTION FOR CHILDREN" : GGSUB2108 

( 68 S=5t£4 : I =FNS < C < C > > : C < C .:• =8 : C=3 : F=-l : I *= " TOTAL REDUC I ONS " : G0SUB2158 

, :; ' 78 GCSUB2308 : 1 T= " **FEDERAL TAX** " : G0SUB2288 : D < 7 > = I : D C 8 > = I 

788 C=4: I *= "FOREIGN TAX PAID" : G0SUB2188 : IFI=0&OTOB58 

798 W=I : I*="FORGN INCOME" : G0SUB2188 : K= I : X=CD< J>-D<:18> >/188 : V=< D<7>+D-:il.:. vqfin 

888 S=INT-:.K/X*V::' : PRINTK/188.; "X"; X; "*".; V.; "==".; S/188 

818 I $=- " DEDUCT : " : I =FNS <M> : G0SUB2288 : D <: 8 > =D < 8 > - 1 

828 PRINT". . ANOTHER COUNTRV. . . " : G0T0788 

858 I =D< &:> : I*=" FEDERAL TAX PAYABLE" : PRINT : GOSUB220O : PRINT 

h>,0 p=44: I=FNP<LD<6>>:I*= ,, BflSIC ONTARIO T AX " : G0SUB2288 : D < 9 > = I 

1880 REFiDX: IFXO--1GOTO1000 

1018 PR I NT "—ONTARIO PROPERTY TAX==" 

1820 .1.$=" TOTAL RENT PAYMENTS" : GOSUB2180 : IFI-0GOTG1848 

1030 P=2S: I=FNP> 1/ :I*="*20K OF RENT" : G0SUB2288 

1048 C=l : C <.C> = I :F=1: I *= "PROPERTY TRXES&COLLG RES" : GOSUB2108 

1.059 I -C < C ' P =10 : X=FNP >■'. I > : I #= " *OCCUPANCY COST* " : G0SUB2200 : PR I NT 

I860 S-L8E3: I-FNSU> : 1$=" ADD . " : GOSUB2200 : C<C) = I : I=X : I*=" TO.. " : G0SUB2158 

1070 I *=" PROPERTY TAX CREDIT ": I=C<C> : G0SUB2280 

1888 P=1:I=FNP<D<12>>:I*="SHLES TAX CREDIT" : G0SUB2158 

1098 I t= "PENSIONER CREDIT" GOSUB2100 : I=C<C> : I *= "TOTAL CREDITS" : G0SUB2288 

1180 P=2 : I=FNP<D<5> > : I*="LESS " • F=~l . G0SUB2158 

11.18 GOSUB230O : S=5E4 : I=FNS<I> : I*="ONThR!:0 P S & P CREDITS" : GOSUB2200 
1128 C<C>=I : I ^"POLITICAL TAX CRED I T" : G0SUB2188 

:i.;0 l-C-.C>:I*= H *TOTfi!L ONT TAX CREDITS" : D<;i3> = I : G0SUB2288 
1148 Pl=4 : GOSUB2080 : I ~D < 8 > : I $ = " FEDERAL T AX PAYABLE " : Q0SUB2288 
1150 I *= " POL i T/BUS/EMPLMT CRED I T " : G0SUB2188 : X=D < 8 > +D < 9 > ■■•- 1 
1160 I*=" ONTARIO TAX P AYABLE " : I =D C 9 .:• : G0SUB2288 
1178 I$="TOTflL PAYABLE" : I=X : G0SUB2288 : PRINT 

1188 C=1:C<C>=8 : F=l : I*="TAX DEDUCTED PER SLIPS" : G0SUB2188 
1.1.90 I*="ONTfiRIO TAX CREDITS" : I=D <.±3 >: G0SUB2158 
1 280 I *= "OVERPAYMENTS/ I NST ALMENTS " : GOSUB2108 
1218 I =C < C :■' : I *= " **TOT AL CRED I TS** " : GOSUB2280 : PR I NT 
1228 I *= " BALANCE DUE " : I =X~ I : I F I C8THEN I *= "REFUND : " : I = ABS < I > 
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GOSUB2200:PRINT 
END 



PRINT 
PRINT 
PRINTF 



PR I NT " ===PfiGE " .; : G0T02828 

PR I NT " ===SCHEDULE " ; 

±i "OF RETURN===": RETURN 



I=0:QETZ*:PRINTI*i "? "; 

V*="" : PRINT"*"; 

GET2* : IFZ*= ,,,, QOTO21.20 

Z=fiSC<Z*> : IFZ>4?fiNDZC58G0T02145 

I F24— " -■ " FlNDV*- " " QO T 02145 

IF2*=". "G0T02145 

IF<2=157ORZ=20>RNDV*<>" "THENV*=LEFT*^ V*, LEm< V*>~1> : PRINT" ", : G0T021.4F 

IFZ*="+"THENPR1NT" " : : I=I+VfiL<V*> : F0R.J=lT0LEN'2r'*> : PRINT" "; : NEXT : G0T02110 

I F2=13fiND I =6THENPR I NT " " ; 

I FZ=13"f HEN I =FN I < I +VHL < v* > > : PR I NT : GGT02158 

GOTO2120 

V*=V*+Z* 

PR I NT Z*; :GOTO2120 

C ■■'. C> ~~C<, C:> + F+ : F 

PR I NT 1 1, : H-1EG : FOR J=EEN ( I * > T025 : PR I NT " " ; : NEXT! : .J=liBS t I > : 2*= " " : Z=@ 

D=INTCJ/MJ : J=J-D*M: IFD=ZTHENPRINT" "; : GOTO2230 

Z*= " .■ " : 2=1 : PR I NTCHR* < D+48 > ; 

M=M/10 : I FM=lE4ThENPR I NT2$; 

IFM=10THENPRINT". "; : 2=M 

If-' N.. ^1GOTO2210 

IFI-:j::iri-lENPRINT"CR"; 

PRINT: RETURN 

e=-0 : I=FNe<C>: C> > : C<' C >~1 : RETURN 



USER PORT COOKBOOK 

Recall last month the User Port Cookbook was included with 
the "Transactor". Since then an error has been brought to my 
attention. The cardedge illustration of the User Port on the 
front page is reversed. Compare it to the actual cardedge at 
the back of your PET and notice the polarization slots. Although 
the pin names correspond correctly, the illustration is essen- 
tially the "mirror image". Below is the corrected version which 
you can cut out and paste over top. 
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